home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / kotatsu.bas < prev    next >
BASIC Source File  |  1991-10-18  |  10KB  |  209 lines
  1. 0 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 10 '-----------------------------------------------------------
  3. 20 '--- 題 / こたつを 買って 嬉しかった｡  　       ------------
  4. 30 '---                    作・編曲／ＳＫＥＭＡＲＯ------------
  5. 40 '-----------------------------------------------------------
  6. 50 '---------ALL1--------------------1989 11/25    ------------
  7. 60 '-----------------------------------------------------------
  8. 70 LOAD@"Q:\FJ\PCM\RYM_ALL1.PMB"
  9. 80 LOAD@"Q:\FJ\FM\FM_1.FMB"
  10. 90 GOSUB *めさーじゅ表示:BGM 1:FOR I=0 TO 13:PART I,I:NEXT
  11. 100 DIM T%(4,9),V%(23),D%(47)
  12. 110 TNO%=1 : TNAME$="E.BASS" : RESTORE 110
  13. 120 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  14. 130 '
  15. 140 DATA 58, 0, 0, 0, 0, 0, 0, 0, 0, 0
  16. 150 DATA 31, 0, 0, 3, 0, 38, 0, 0, 0, 0
  17. 160 DATA 31,10, 2, 3, 0,  9, 1, 0, 0, 0
  18. 170 DATA 31, 4, 2, 3, 0, 37, 0, 1, 0, 0
  19. 180 DATA 31, 4, 2, 7, 0, 18, 0, 0, 0, 0
  20. 190 TNO%=2 : TNAME$="SYNTH.2" : RESTORE 190
  21. 200 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  22. 210 '
  23. 220 DATA 58, 0, 0, 0, 0, 0, 0, 0, 0, 0
  24. 230 DATA 31, 0, 0, 4, 0,40, 0, 4, 7, 0
  25. 240 DATA 31,10,10, 4, 1,33, 1, 4, 3, 0
  26. 250 DATA 31, 0, 0, 4, 0,30, 1, 2, 7, 0
  27. 260 DATA 31, 0, 0, 7, 0,20, 0, 0, 3, 0
  28. 270 GOTO 400
  29. 280 *TNCONV
  30. 290 FOR I%=0 TO 3:J%=I%+1:D%(8+I%)=(T%(J%,8)AND 7)*16+(T%(J%,7)AND 15)
  31. 300 D%(12+I%)=(T%(J%,5) AND 127)
  32. 310 D%(16+I%)=(T%(J%,6) AND 3)*64+(T%(J%,0) AND 31)
  33. 320 D%(20+I%)=T%(J%,1) AND 31:D%(24+I%)=T%(J%,2) AND 31
  34. 330 D%(28+I%)=(T%(J%,4) AND 15)*16+(T%(J%,3) AND 15):NEXT
  35. 340 D%(32)=T%(0,0):D%(33)=&HC0+((T%(0,7) AND 3)*16)+((T%(0,8) AND 7))
  36. 350 D%(34)=0:A$=LEFT$(TNAME$+"        ",8)
  37. 360 FOR I%=0 TO 7:D%(I%)=ASC(MID$(A$,I%+1,1)):NEXT
  38. 370 FOR I%=0 TO 47 STEP 2:L&=D%(I%+1)*256+D%(I%)
  39. 380 IF L&<&H8000 THEN V%(I% \ 2)=CINT(L&) ELSE V%(I% \ 2)=CINT(L&-&H10000)
  40. 390 NEXT:VOICE TNO%,V%:RETURN
  41. 400 '-----------------------------------------------------
  42. 410 PLAY OFF:T$="T144%CL8U0"
  43. 420 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  44. 430 '-----------------------------------------------------
  45. 440 A$="@6V6O6 R%LC<AGFC<AG%C"
  46. 450 B$="@6V6O5 R%RGFC<AGFC%C"
  47. 460 G$="@9O1V 9    C>C<C>C<C>C<C>C<"
  48. 470 H$="@1O1V10    CRCRCRCR"
  49. 480 J1$="V6AV3AAAV6AV3AAA":J$="@1O6V4L16"+J1$+J1$
  50. 490 PLAY A$,B$,,,,,G$,H$,,J$
  51. 500 L=0:LO=0
  52. 510 C$="@1O6V10    F4RF4&F4.F4RF4&F4."
  53. 520 D$="@1O5V10    A4RB-4&B-4.B-4RA4&A4."
  54. 530 E$="@1O5V 9    F4RF4&F4.F4RF4&F4."
  55. 540 F$="@1O5V 9    C4RD4&D4.D4RC4&C4."
  56. 550 G$="           F>F<F>F<F>F<F>F<F>F<F>F<F>F<F>F<"
  57. 560 H$="           CRCRCRCRCRCRCRCR"
  58. 570 I$="@1O2V 8 R1R2.CR"
  59. 580 J1$="%L5V6A%CV3AAA%R5V6A%CV3AAA":J$="V10"+J1$+J1$+J1$+J1$
  60. 590 PLAY ,,C$,D$,E$,F$,G$,H$,I$,J$
  61. 600 IF L=1 THEN 670
  62. 610 '-------------------------------------------------------
  63. 620 C$="F4RFRERE4FF2."
  64. 630 D$="A4RB-RGRG4AA2."
  65. 640 E$="F4RFRERE4FF2."
  66. 650 F$="C4RDRCRC4CC2."
  67. 660 PLAY ,,C$,D$,E$,F$,G$,H$,I$,J$:L=1:GOTO 510 
  68. 670 '-----------------------------------------------------
  69. 680 A$="@6V6O6 R1R%LC<AGFC<AG%C"
  70. 690 B$="@6V6O5 R1R%RGFC<AGFC%C"
  71. 700 C$="F4RFRGRB-&B-1"
  72. 710 D$="A4RB-R>CRD&D1<"
  73. 720 E$="F4RFRGRB-&B-1"
  74. 730 F$="C4RDRERF&F1"
  75. 740 G$="F>F<F>F<F>F<F>F<C>C<C>C<C>C<AG"
  76. 750 I$="RRERREEEREEEE>>%L8F<%CB%R8F<%C"
  77. 760 PLAY A$,B$,C$,D$,E$,F$,G$,H$,I$,J$
  78. 770 '----------------------------------------------------
  79. 780 FOR II=1 TO 2:FOR I=1 TO 2
  80. 790 A$="@2V13O5RR>C<RRARF32G8&G16.FC4.>C<B-A"
  81. 800 D$="RRARRARG&G2.GA"
  82. 810 E$="RRFRRFRE&E2.EF"
  83. 820 F$="RRCRRCRC&C2.CC"
  84. 830 G$="F>F<F>F<F>F<F>F<C>C<C>C<C>C<C>C<"
  85. 840 H$="ARARARARARARAARA"
  86. 850 I$="RRERRRERRRERRRER"
  87. 860 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  88. 870 '-----------------------------------------------------
  89. 880 A$="A-32A8.&A32B-F4D4E4.CG4A-32A16.GF"
  90. 890 D$="RRB-B-B-FRA4GG4FRGR"
  91. 900 E$="RRFFFDRF4EE4DRER"
  92. 910 F$="RRDDD<B->RC4CC4<B-R>CR"
  93. 920 G$="B->B-<B->B-<B->B-<B->B-C>C<C>C<C>C<C>C<<"
  94. 930 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  95. 940 NEXT:FOR I=1 TO 2
  96. 950 '-------------------------------------------------------
  97. 960 A$="FFFB-4AF4FFF>C32D8.&D32C<FR"
  98. 970 D$="F2&FFRG&G1"
  99. 980 E$="D2&DDRE&E1"
  100. 990 F$="<B-2&B-B-R>C&C1"
  101. 1000 G$="B->B-<B->B-<B->B-<B->B-<C>C<C>C<C>C<C>C<"
  102. 1010 PLAY A$,B1$,C1$,D$,E$,F$,G$,H$,I$,J$
  103. 1020 '-------------------------------------------------------
  104. 1030 A$="FFFB-4AF4FFFA-32A8.&A32B->C4<"
  105. 1040 D$="B-2&B-FRG&G1"
  106. 1050 E$="F2&FFRE&E1"
  107. 1060 F$="D2&DDRC&C1"
  108. 1070 G$="B->B-<B->B-<B->B-<B->B-C>C<C>C<C>C<C>C<<"
  109. 1080 I1$="RRERRRERRRERREEE"
  110. 1090 PLAY A$,B1$,C1$,D$,E$,F$,G$,H$,I1$,J$
  111. 1100 B1$="@6V7O5%LRDFB-&B-2%RREG>C&C2<"
  112. 1110 C1$="@6V7O5%RR<B->DF&F2%LR<CEG&G2"
  113. 1120 NEXT I:NEXT II
  114. 1130 '--------------------------------------------------------
  115. 1140 G$="C>C<C>C<C>C<C>C<"
  116. 1150 I1$="RE>>V10%L8E<AA<%CV8E>%R8V10EC<%CV8"
  117. 1160 J1$="O6V6AV3AAAV6G8V3AV6G8V3AV8G8BBBBV3"
  118. 1170 PLAY ,,,,,,G$,,I1$,J1$:IF LO=1 THEN 500
  119. 1180 '---------------------------------------------------------
  120. 1190 FOR I=1 TO 2
  121. 1200 A$="O5G4.A4.C4G4.A4GF4"
  122. 1210 B$="V6O6 R1R%LC<AGFC<AG"
  123. 1220 C$="V6O5 R1R%RGFC<AGFC"
  124. 1230 D$="RRA4RAA4RRA4RAA4"
  125. 1240 E$="RRF4RFF4RRE4REE4"
  126. 1250 F$="RRC4RCC4RRC4RCC4"
  127. 1260 G$="O1F>F<F>F<F>F<F>F<E>E<E>E<C>C<C>C<"
  128. 1270 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  129. 1280 '----------------------------------------------------------
  130. 1290 A$="EFRD&D2B-ARFRD4C"
  131. 1300 D1$="RRF4RFF4B-ARFRG4."
  132. 1310 E1$="RRD4RDD4FFRDRE4."
  133. 1320 F1$="RR<B-4RB-B-4>DCR<B->RC4."
  134. 1330 G1$="D>D<D>D<D>D<D>D<B->B-<B-C>C<CE>E<"
  135. 1340 PLAY A$,,,D1$,E1$,F1$,G1$,H$,I$,J$:NEXT
  136. 1350 FOR I=1 TO 2:A$="FCFA4B-AG&GCEG4AB-A"
  137. 1360 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  138. 1370 A$="F<B->DF&F2 B-CE>C<B-EGC"
  139. 1380 PLAY A$,,,D1$,E1$,F1$,G1$,H$,I$,J$:NEXT
  140. 1390 A$="FCFG4CGA4B-AG4>C<B-A"
  141. 1400 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  142. 1410 A$=">>FEDC<B-AGFEDC<B-AGFE"
  143. 1420 PLAY A$,,,D1$,E1$,F1$,G1$,H$,I$,J$
  144. 1430 A$="FRRF&F2&F1"
  145. 1440 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  146. 1450 PLAY ,B$,C$,D1$,E1$,F1$,G1$,H$,I$,J$
  147. 1460 '-----------------------------------------------------------
  148. 1470 FOR I=1 TO 2
  149. 1480 B$="V8O4L16>C<B-AB->C<B-AB->C<B-AB->C<B-AB->EC<A>CEC<A>CEC<A>CEC<A>C<"
  150. 1490 C$="V8O4L16R>C<B-AB->C<B-AB->C<B-AB->C<B-AB->EC<A>CEC<A>CEC<A>CEC<A"
  151. 1500 PLAY ,B$,C$,D$,E$,F$,G$,H$,I$,J$
  152. 1510 '-----------------------------------------------------------
  153. 1520 B$="   FD<B->FDB->DB-FD<B-<FD<B-FG>CECEGECEG>C<G>CEG>C<EL8"
  154. 1530 C$=">C<FD<B->FDB->DB-FD<B-<FD<B-FG>CECEGECEG>C<G>CEG>CL8"
  155. 1540 PLAY ,B$,C$,D1$,E1$,F1$,G1$,H$,I$,J$:NEXT
  156. 1550 '------------------------------------------------------------
  157. 1560 A$="A4.>F4&F4.<A4.>E4&E4.<"
  158. 1570 PLAY A$,,,D$,E$,F$,G$,H$,I$,J$
  159. 1580 '------------------------------------------------------------
  160. 1590 A$="A4.>D4&D2>C<AGE32F16.C<G32A16.G"
  161. 1600 I1$="RRERRRERRRER>%L8B<%CEE>%R8E%C<"
  162. 1610 PLAY A$,,,D1$,E1$,F1$,G1$,H$,I1$,J$:LO=1:GOTO 780
  163. 1620 '------------------------------------------------------------
  164. 1630 *めさーじゅ表示
  165. 1640 SCREEN @2:COLOR 0,[128,128,128]:CLS:PLAY OFF:BGM 0:YY=100
  166. 1650 T$="T180V12L64":PLAY T$+"@75O2V12",T$+"@76O1V9",T$+"@106",T$+"@106"
  167. 1660 '------------------------------------------------------------
  168. 1670 LINE (0,0)-(640,480),PSET,[0,0,0],BF
  169. 1680 LINE (60,50)-(400,50),PSET,[100,100,100]
  170. 1690 FOR I=0 TO 15
  171. 1700  LINE (35,YY)-(605,YY),PSET,[100,100,100]:YY=YY+25:NEXT:RESTORE 1930
  172. 1710 FOR I=1 TO 3
  173. 1720  READ M$:LOCATE 55,I:COLOR 0:PRINT "*";:COLOR 0:PRINT M$:NEXT
  174. 1730 '------------------------------------------------------DAIMEI
  175. 1740 X=52:Y=17:RESTORE 1960:READ A$:A=KLEN(A$,0)
  176. 1750    FOR I=1 TO A : AA$=KMID$(A$,I,1)
  177. 1760      SYMBOL (X,Y),AA$,1,2,[150,250, 10],0,PSET,7
  178. 1770      IF AA$="　" THEN PLAY "","" ELSE PLAY "E16.","C16." 
  179. 1780    X=X+16 : NEXT I
  180. 1790 '-------------------------------------------------------MOJI
  181. 1800 X=70:Y=82:RESTORE 1970
  182. 1810 READ A$:A=KLEN(A$,0)
  183. 1820  FOR I=1 TO A : IF I=31 OR I=61 OR I=91 OR I=121 THEN X=70:Y=Y+25:PLAY ,,"L64O1BB-AA-(EG>C)3","L64O1GG-FE(CEG>)3"
  184. 1830   AA$=KMID$(A$,I,1) : IF AA$="￥" THEN 2050
  185. 1840   IF AA$="＠" THEN X=70:Y=Y+25:PLAY ,,"L64O1BB-AA-(EG>C)3","L64O1GG-FE(CEG>)3":GOTO 1810 
  186. 1850    SYMBOL (X,Y),AA$,1,1,7,0,PSET,13
  187. 1860    IF AA$="？" OR AA$="！" THEN PLAY "E2.","C2.":GOTO 1890 
  188. 1870    IF AA$="　" OR AA$="、" THEN PLAY ,"B8":GOTO 1890 
  189. 1880    IF AA$="。" OR AA$="ー" OR AA$="・" THEN PLAY "E2","C2" ELSE PLAY "E60","C60"
  190. 1890    X=X+17:NEXT I
  191. 1900 '-------------------------------------------------------------
  192. 1910 'めさーじゅ　ＤＡＴＡ
  193. 1920 '-------------------------------------------------------------
  194. 1930 DATA "SKE.ﾒｻ-ｼﾞｭｼｽﾃﾑ  V1.1L10"
  195. 1940 DATA "For F-BASIC 386 V1.1L20"
  196. 1950 DATA "DISC ON DRIVE Q        "
  197. 1960 DATA "　　　　　こたつを買って嬉しかった。　　　":'DAIMEI 21 MOJI
  198. 1970 DATA "　あれはぁ、高校最後の年のぉ、秋だったでしょうかぁ。ディスカウントショップで買ったんですがね。安物の小さな　ちいさなこたつのくせに、なんかこう、「おふくろのあったかさ」というか、「あどけない少女の面影」が・・・そこにあったんですよ。＠"
  199. 1980 DATA "　もうそれからは、こたつ、こたつの毎日でした。えっ？そりゃぁ名前もつけました。「カルパチーノ」って。いい名前でしょ。当然二人は・・ふっ。 恥ずかしくって私の口からはとても・・。＠"
  200. 1990 DATA "　でもっ、でもっ　あの悲惨な戦争が、そんな二人を・・・くっ　わかれわかれにしてしまったんです。＠"
  201. 2000 DATA "　きっと今頃　彼女、ヒーターも取り外して、天板も裏がえした、その真白い顔に微笑みを浮かべてぇ、こういってますよ。＠"
  202. 2010 DATA "「ＳＫＥ、私はいつでもあなたの心にいるわ。ファ・イ・トッ」＠"
  203. 2020 DATA "　ってね。　 あぁ、そういえばもう、こんな季節なんですねぇ。＠"
  204. 2030 DATA "というようなつまらぬ設定で、曲を作ってみました。（うそ）＠"
  205. 2040 DATA "    ----HIT ANY KEY----￥"
  206. 2050 A$=INPUT$(1):RETURN
  207. 65000 BGM 0:PLAY "R64":BGM 1
  208. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  209.